home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGBLER / ASMCODE.LZH / CONTRACT.ASM < prev    next >
Assembly Source File  |  1984-07-21  |  695b  |  23 lines
  1. ;
  2. PAGE,132
  3. NAME CONTRACT_CODE
  4. TITLE CONTRACT.ASM -- VOL ID = MSB-SCRATCH
  5. ;
  6. ;PROCEDURE TO SHRINK CURSOR TO NORMAL SIZE
  7. ;
  8. CONTRACT_CODE SEGMENT PARA PUBLIC 'CODE'
  9.               PUBLIC    CONTRACT
  10. CONTRACT      PROC      FAR
  11.               ASSUME    CS:CONTRACT_CODE
  12.               PUSH      BP
  13.               MOV       BP,SP
  14.               MOV       AH,01
  15.               MOV       CH,11        ;RESET CURSOR SIZE TO 11/12
  16.               MOV       CL,12        ;END SCAN LINE AT 12
  17.               INT       10H          ;BIOS FOR CURSOR MANAGE SERVICE
  18.               POP       BP
  19.               RET
  20. CONTRACT      ENDP
  21. CONTRACT_CODE ENDS
  22.               END                    ;ASSEMBLY
  23.